home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1995 October / Amiga-CD 1995 #10.iso / weitere_demos / maxoncad_2.5-demo / install-maxoncad < prev    next >
Text File  |  1995-08-21  |  6KB  |  264 lines
  1. ; $VER: MaxonCAD Install Version 1.0
  2. ; Script zum Installieren von MaxonCAD Demo
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonCAD\n\n auf einer "
  9.      "Festplatte installieren. Die komplette Installation läuft "
  10.      "automatisch ab. "
  11.      "Auf Ihrer Festplatte muß mindestens 1MB Platz frei sein!\n\n"))
  12.  
  13. (set #askdir-help
  14. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  15.      "Sie gerne MaxonCAD installieren möchten. Sie müssen KEIN Verzeichnis "
  16.      "anlegen, da das Installationsprogramm dies automatisch macht! "
  17.  
  18.       "\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  19.       "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  20.       "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  21.       "gekennzeichneten Einträge auswählen.\n"
  22.       "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  23.       "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  24.       "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  25.       "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  26.       "\n\n"
  27.       ))
  28.  
  29. (set #help-startup
  30. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  31.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  32.      "bereits beim Systemstart ausführen.\n\n"))
  33.  
  34.  
  35. (set #no-inst
  36. (cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
  37.      "MaxonCAD-Dateien zu kopieren\n\n"
  38.      "!!! Die Installation wird abgebrochen !!!"))
  39.  
  40.  
  41. (set #COPVERZ    (cat "\nAuf welcher Partition soll MaxonCAD\nangelegt werden?"
  42.                           "\nDas Verzeichnis \"MaxonCAD_Demo\" wird automatisch erzeugt!"
  43. ))
  44.  
  45. (set #SIZE 1000000)
  46.  
  47. (set @language "Deutsch")
  48.  
  49. (set os-version (/ (getversion) 65536))
  50. (set os-13 (< os-version 36))
  51. (set os-20 (>= os-version 36))
  52. (set os-21 (>= os-version 38))
  53.  
  54.  
  55.  
  56. (Procedure Inst_NormFiles
  57.     (if (< (getdiskspace @Dest) @Size)
  58.         (abort #no-inst))
  59.  
  60.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  61.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  62. )
  63.  
  64. (Procedure Inst_PatternFiles
  65.     (if (< (getdiskspace @Dest) @Size)
  66.         (abort #no-inst))
  67.  
  68.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  69.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  70. )
  71.  
  72. (Procedure Inst_LhaFiles
  73.     ;(set @In_File (tackon @Source @FName.lha))
  74.     (set @TMP (tackon "RAM:" @FName.lha))
  75.     (set @Dest_File (tackon @default-dest @Dest))
  76.     (if                                          ; Verzeichnis erzeugen
  77.         (= (exists @Dest_File) 0)
  78.         (makedir (@Dest_File)(infos))
  79.     )
  80.  
  81.     (if (< (getdiskspace @Dest_File) @Size)
  82.         (abort #no-inst))
  83.  
  84.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  85.     (working @Working @Dest)
  86.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  87.     (delete @TMP)
  88. )
  89.  
  90. (Procedure Inst_LhaFilesnew
  91.     ;(set @In_File (tackon @Source @FName.lha))
  92.     (set @TMP (tackon "RAM:" @FName.lha))
  93.     (set @Dest_File (tackon @default-dest @Dest))
  94.     (makedir (@Dest_File)(infos))
  95.  
  96.     (if (< (getdiskspace @Dest_File) @Size)
  97.         (abort #no-inst))
  98.  
  99.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  100.     (working @Working @Dest)
  101.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  102.     (delete @TMP)
  103. )
  104.  
  105.  
  106. (message #introduction)
  107. (welcome)
  108. (set old_level @user-level)
  109.  
  110. (complete 0)
  111.  
  112. (set @default-dest                           ; Verzeichnis aussuchen 
  113.     (askdir
  114.         (prompt #COPVERZ)
  115.         (help    #askdir-help)
  116.         (default "WORK:")
  117.     )
  118. )
  119.  
  120. (set @default-dest (tackon @default-dest "MaxonCAD_Demo"))
  121. (set @default-src "")
  122.  
  123.  
  124. (if                                          ; Verzeichnis erzeugen
  125.     (= (exists @default-dest) 0)
  126.     (makedir @default-dest)
  127. )
  128.  
  129.  
  130.  
  131.  
  132.  
  133. (complete 5)
  134.  
  135. (
  136.     (set @Source @default-src)
  137.     (set @Dest @default-dest)
  138.    (set @Pattern "MaxonCAD-Demo")
  139.     (Inst_PatternFiles)
  140. )
  141.  
  142. (complete 20)
  143.  
  144. (
  145.     (set @Source @default-src)
  146.     (set @Dest @default-dest)
  147.    (set @Pattern "Lies mich")
  148.     (Inst_PatternFiles)
  149. )
  150.  
  151. (complete 30)
  152.  
  153.  
  154. (
  155.     (set @Source @default-src)
  156.     (set @Dest @default-dest)
  157.    (set @FName "shortcuts")
  158.     (Inst_NormFiles)
  159.  
  160. )
  161.  
  162. (complete 40)
  163.  
  164. (
  165.     (set @Source @default-src)
  166.     (set @Dest @default-dest)
  167.    (set @FName "imdata")
  168.     (Inst_NormFiles)
  169. )
  170.  
  171. (complete 50)
  172.  
  173. (
  174.     (set @Source @default-src)
  175.     (set @Dest @default-dest)
  176.    (set @FName "hatchpatterns")
  177.     (Inst_NormFiles)
  178. )
  179.  
  180.  
  181. (
  182.     (set @Source @default-src)
  183.     (set @Dest @default-dest)
  184.    (set @FName "schrfdef.mchatch")
  185.     (Inst_NormFiles)
  186. )
  187.  
  188. (complete 60)
  189.  
  190. (
  191.     (set @Source @default-src)
  192.     (set @Dest @default-dest)
  193.    (set @FName "more")
  194.     (Inst_NormFiles)
  195. )
  196.  
  197. (
  198.     (set @Source @default-src)
  199.     (set @Dest @default-dest)
  200.    (set @FName "cadfonts")
  201.     (Inst_NormFiles)
  202. )
  203.  
  204. (complete 70)
  205.  
  206. (
  207.     (set @Source @default-src)
  208.     (set @Dest @default-dest)
  209.    (set @FName "Beispiele")
  210.     (Inst_NormFiles)
  211. )
  212.  
  213. (
  214.     (set @Source @default-src)
  215.     (set @Dest @default-dest)
  216.    (set @FName "Rahmen")
  217.     (Inst_NormFiles)
  218. )
  219.  
  220. (
  221.     (set @Source @default-src)
  222.     (set @Dest @default-dest)
  223.    (set @FName "BIB")
  224.     (Inst_NormFiles)
  225. )
  226.  
  227. (complete 90)
  228.  
  229.  
  230.     
  231.     (
  232.     ; ------- STARTUP ÄNDERN
  233.     
  234.     
  235.     (set command1 (cat "ASSIGN CAD: " "\"" @default-dest "\""))
  236.     (set command2 "ASSIGN CADFONTS: CAD:cadfonts")
  237.     (set command1.txt
  238.         (cat 
  239.              "\n\n\nDie User-Startup muß um Pfadangaben für MaxonCAD ergänzt werden.\n\n"
  240.         )
  241.     )
  242.     
  243.     (startup "MaxonCAD-Demo"
  244.         (prompt command1.txt)
  245.         (help #help-startup)
  246.         (command command1)
  247.         (command (cat "\n" command2))
  248.     )
  249.     )
  250.  
  251.     (run command1)
  252.     (run command2)
  253.  
  254. (complete 100)
  255.  
  256. ; ------- FERTIG
  257.  
  258.  
  259.  
  260. (exit)
  261.  
  262. ;=============================================================================
  263.  
  264.